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ABSTRACT 



This reinforcement activity has been used by students 



from the elementary school level to the graduate school level who 
possess intermediate level ability in programming Logo. The activity, 
which consists of writing Logo programs that animate an object, can 
have several positive effects as it: (1) helps develop 
problem-solving skills; (?) encourages students to work together and 
share ideas; (3) can motivr.te accelerated students; and (4) offers 
excellent practice in use of variables, procedures, conditionals, and 
iteration/recursion. While the six sample procedures included for 
animated Logo are written for LogoWriter, they can be easily adapted 
to other versions of Lego. (CGD) 
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Animation in Logo : A Reinforcement Activity 



This activity is both interesting to students and useful in 
reinforcing several important concepts. While animation is 
easily achieved with LogoWriter using shapes, the anproach 
presented here works well with several versions of Logo and 
enables the student to practice programming skills. 

Students must be able to program in Logo at an intermediate 
level. They are first introduced to animation as a three-step 
process; (1) draw the figure, (2) erase the f'gure, (3) move and 
repeat. Students are given a graph of screen coordinates and ohe 
assignment is to move an object on the screen. 

This activity is conducted in a problem-solving orientation. 
Students are given the general assignment, and required to 
organize their existing knowledge in new and different ways to 
solve the problem. Once the problem has been solved in one w:.y, 
different methods and embellishments may be suggested. Students 
are encouraged to work together and to share ideas . 

In order to animate the object students use variables and 
procedures. They use either iteration or recursion to repeat the 
steps. They use a conditional to stop the object at the edge of 
the screen. 
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This project is motivating for accelerated ;:.cudents. Some 
student projects have included addition of color, addition of a 
background picture, variation of the speed, variation of the 
starting point and direction, moving multiple objects 
simultaneously, and moving an object randomly. 

This activity has been included in Logo courses with 
students from elementary r^choo'^ to graduate school level. It 
has been a favorite project for the students. It provides 
excellent practice in use of variables, procedures, conditionals, 
and it era t ion/ recurs ion . 

The following are six sample procedures for animated Logo. 
All are written for LogoWriter, but can easily be adapted for 
other versions of Logo. 
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Exanple 1: Sinple Iterative 



TO FASIEST 
PU 

SETH 90 

REPEAT 50CWAIT 10 FD 5] 
END 



;sets move mode 
;sets heading 

jmoves 50 times with pause 



Exanple 2: Sinple Recursive 



TO DRAWIT 

SETH 90 
FD 10 
BK 3 
PT 135 
FD 5 
BK 5 
RT 90 
FD 5 
BK 5 
LT 45 
FD 7 
END 



;sets heading 



TO EASYMOVE 
HT 
PD 

DRAWIT 
WAIT 10 
PE 

DRAWIT 
SETH 90 
PU 

FD 5 

EASYMOVE 
END 



; superpr ocedure 

;sets drawing mode 
;draws figure 
;slows it down 
;sets erase mode 
jorases figure 
;sets heading 
;sets move mode 

;recursive call 
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Exanple 3: Interned iate Iterative 



TO BUG 

SETH 0 

REPEAT 4[FD 3 RT 90] 
EHD 

TO MOVEBUG :X 
PU 

SETX :X 

PD 

BUG 

PE 

BUG 

EHD 

TO DOIT 

MAKE "X -1?0 
PU 

SETX -120 
SETY 10 
PD 

REPEAT 30 [MOVEBUG :X MAKE 



END 



;sets heading 
;draws figure 



;ases variable to move 

;sets move mode 

;sets horizontal position 

;sets draw mode 

;draws figure 

;sets erase mode 

jerases figure 



;assigns initial value 
;sets move mode 
;sets initial X position 
;sets initial Y position 
;sets draw mode 
"X :X+10] 

; moves, erases, and 
; increments 



Bxanple 4: Internediate Recursive 



TO BUG 

SETH 0 

kEPi^AT 4[FD 3 RT 90] 
END 



;sets heading 
;draws figure 



TO MOVL'BUG .X 
PU 

SETX :X 

PD 

BUG 

PE 

BUG 

MAKE "X 
IF :X > 
MOVEBUG 
END 



:X + 10 
139 [STOP] 
:X 



;sets move mode 

;sets horizontal position 

; sets draw mode 

;draws figure 

;sets erase mode 

;erases figure 

; increments X position 

; stops at edge of screen 

;recursive call 



TO DOIT 

MAKE "X -120 
PU 

SETX -120 
SETY 10 
PD 

MOVEBUG :X 
END 
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;assign& initial vilue 
;sets move mode 
;sets initial X {position 
;sets initial Y position 
; sets draw mode 



Exanple 5. Advanced Spiderweb 



TO WEB :SIZE 

TRI :SIZE 
RIGHT 120 

IF :SIZE > 100 [STOP] 

WEB :SIZE + 10 

END 



;uses recursion to draw 
;a series of triangles 



TO TRI :SIZE 

REPEAT 3[FD 
END 



SIZE RT 120] 



jdraws a triangle of 
jvariable size 



TO MAKEWEB 

WEB 10 RT 30 
WEB 10 RT 30 
WEB 10 
END 



jcalls WEB to create a 
; spiderweb figure 



TO SPIDER 

RT RANDOM 360 
FD RANDOM 100 
END 



moves spider 

rendom turn 

random distance moved 



TO CHASE 

PD MAKEWEB PU 

REPEAT 30[ST SPIDER WAIT 10] 
END 



; superprocedure 

; moves spider 30 times 



ERIC 




6 



Exanple 6: Advanced Honeybee 



TO FLOWER 
HT 

SETSH 24 

PU BK 80 RT 90 BK 120 
.vEPEAT 8[PD STAMP PU FD 25] 
FD le 
END 



;available in LogoWriter 
; stamps flower shape 



TO TREETOP 

REPEAT 25[RT 5 FD 5] 
END 



; draws an arc 



TO TREE 

LT 90 PD 

FD 100 LT 110 

TREETOP 

END 



;draws tree trunk 
jdraws tree top 



TO OVAL :W : X :Y :Z 
REPEAT :Z[RT : 
RT :W FD :X 
RT :W REPEAT : 
FJ :X 
END 



Y FD 1] 

Z[RT :Y FD 1] 



;used to draw bee hive 



TO HIVE 

PU RT 165 FD 75 LT 90 FD 40 

PD OVAL 20 10 10 18 

^U FD 3 RT 90 FD 10 LT 90 

I'D OVAL 0 20 9 20 

tU FD 3 RT 90 FD 10 LT 90 

PD OVAL 0 25 9 20 

PU BK 3 RT 90 FD 10 LT 90 

PD OVAL 0 20 9 20 

PU BK 6 RT 90 FP 10 LT 90 

PD OVAL 20 10 10 16 PU 

END 



jmoves into position 
; calls OVAL 



TO BAC^JROUND 
FLOWER 
TREE 
HIVE 
END 



; draws background parts 



ERIC 



O 



TO BEE ; superprocedure 

BACKGROUND 

SETSH 0 ST ;sets shape and shows 

PU BK 7 RT 90 REPEAT 30[FD 1] jmoves bee 

LT 90 REPEAT 150'FD 1] jslower than FD 150 

RT 45 REPEAT 30[FD 1] WAIT 10 

LT 90 REPEAT 50[FD 1] 

RT 90 REPEAT 50[FD 1] WAIT 10 

LT 75 REPEAT 60[FD 1] 

REPEAT 270fRT 1] 

FD 20 

HT 

END 




